home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Microsoft Plateform / Visual Basic 5.0 / Msvb50.ace / msvb50 / MSVB50 / VB / SAMPLES / VISDATA / VBIMEX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-16  |  8.3 KB  |  251 lines
  1. VERSION 5.00
  2. Begin VB.Form frmImpExp 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "VisData Imp/Exp"
  5.    ClientHeight    =   4905
  6.    ClientLeft      =   2190
  7.    ClientTop       =   1410
  8.    ClientWidth     =   4725
  9.    Height          =   5370
  10.    HelpContextID   =   2016092
  11.    Icon            =   "VBIMEX.frx":0000
  12.    Left            =   2130
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4905
  18.    ScaleWidth      =   4725
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   1  'CenterOwner
  21.    Top             =   1005
  22.    Width           =   4845
  23.    Begin VB.CommandButton cmdClose 
  24.       Cancel          =   -1  'True
  25.       Caption         =   "&Close"
  26.       Height          =   375
  27.       Left            =   2400
  28.       MaskColor       =   &H00000000&
  29.       TabIndex        =   2
  30.       Top             =   120
  31.       Width           =   2055
  32.    End
  33.    Begin VB.CommandButton cmdExportSQL 
  34.       Caption         =   "Export &SQL Results"
  35.       Enabled         =   0   'False
  36.       Height          =   375
  37.       Left            =   2400
  38.       MaskColor       =   &H00000000&
  39.       TabIndex        =   4
  40.       Top             =   600
  41.       Width           =   2055
  42.    End
  43.    Begin VB.CommandButton cmdImport 
  44.       Caption         =   "&Import"
  45.       Height          =   375
  46.       Left            =   240
  47.       MaskColor       =   &H00000000&
  48.       TabIndex        =   1
  49.       Top             =   120
  50.       Width           =   2055
  51.    End
  52.    Begin VB.ListBox lstTables 
  53.       Height          =   3795
  54.       Left            =   120
  55.       MultiSelect     =   2  'Extended
  56.       TabIndex        =   0
  57.       Top             =   1080
  58.       Width           =   4470
  59.    End
  60.    Begin VB.CommandButton cmdExport 
  61.       Caption         =   "&Export Table(s)"
  62.       Enabled         =   0   'False
  63.       Height          =   375
  64.       Left            =   240
  65.       MaskColor       =   &H00000000&
  66.       TabIndex        =   3
  67.       Top             =   600
  68.       Width           =   2055
  69.    End
  70. Attribute VB_Name = "frmImpExp"
  71. Attribute VB_Base = "0{6F48C503-C9E4-11CF-9ED2-00AA00574745}"
  72. Attribute VB_GlobalNameSpace = False
  73. Attribute VB_Creatable = False
  74. Attribute VB_TemplateDerived = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Attribute VB_Customizable = False
  78. Option Explicit
  79. '>>>>>>>>>>>>>>>>>>>>>>>>
  80. Const FORMCAPTION = "Import/Export"
  81. Const BUTTON1 = "&Import"
  82. Const BUTTON2 = "&Close"
  83. Const BUTTON3 = "&Export Table(s)"
  84. Const BUTTON4 = "Export &SQL Results"
  85. Const MSG1 = "Export"
  86. Const MSG2 = "Import"
  87. Const MSG3 = "Export SQL"
  88. Const MSG4 = "Select File"
  89. '>>>>>>>>>>>>>>>>>>>>>>>>
  90. Private Sub cmdClose_Click()
  91.   Unload Me
  92. End Sub
  93. Private Sub cmdExport_Click()
  94.   On Error GoTo ExpErr
  95.   Dim i As Integer
  96.   For i = 0 To lstTables.ListCount - 1
  97.     If lstTables.Selected(i) Then
  98.       frmDataType.Caption = MSG1 & " '" & lstTables.List(i) & "'"
  99.       frmDataType.Show vbModal
  100.       lstTables.Selected(i) = False
  101.       If gnDataType <> gnDT_NONE Then
  102.         If gnDataType <> gnDT_SQLDB Then
  103.           SetCommDlg
  104.           If Not (gnDataType = gnDT_MSACCESS Or gnDataType = gnDT_BTRIEVE) Then
  105.             frmMDI.dlgCMD1.Flags = FileOpenConstants.cdlOFNHideReadOnly
  106.           End If
  107.           frmMDI.dlgCMD1.ShowSave
  108.           If Len(frmMDI.dlgCMD1.FileName) > 0 Then
  109.             Export (lstTables.List(i)), (frmMDI.dlgCMD1.FileName)
  110.           End If
  111.         Else
  112.           Export (lstTables.List(i)), vbNullString
  113.         End If
  114.       End If
  115.     End If
  116.   Next
  117.   cmdExport.Enabled = False
  118.   Exit Sub
  119. ExpErr:
  120.   If Err = 32755 Then Exit Sub
  121.   ShowError
  122. End Sub
  123. Private Sub cmdExportSQL_Click()
  124.   On Error GoTo SQLExpErr
  125.   Dim i As Integer
  126.   frmDataType.Caption = MSG3
  127.   frmDataType.Show vbModal
  128.   If gnDataType <> gnDT_NONE Then
  129.     If gnDataType <> gnDT_SQLDB Then
  130.       SetCommDlg
  131.       If Not (gnDataType = gnDT_MSACCESS Or gnDataType = gnDT_BTRIEVE) Then
  132.         frmMDI.dlgCMD1.Flags = FileOpenConstants.cdlOFNHideReadOnly
  133.       End If
  134.       frmMDI.dlgCMD1.ShowSave
  135.       If Len(frmMDI.dlgCMD1.FileName) > 0 Then
  136.         Export vbNullString, (frmMDI.dlgCMD1.FileName)
  137.       End If
  138.     Else
  139.       Export vbNullString, vbNullString
  140.     End If
  141.   End If
  142.   Exit Sub
  143. SQLExpErr:
  144.   If Err = 32755 Then Exit Sub
  145.   ShowError
  146. End Sub
  147. Private Sub cmdImport_Click()
  148.   On Error GoTo ImpErr
  149.   frmDataType.Caption = MSG2
  150.   frmDataType.Show vbModal
  151.   If gnDataType = gnDT_NONE Then Exit Sub
  152.   If gnDataType <> gnDT_SQLDB Then
  153.     SetCommDlg
  154.     frmMDI.dlgCMD1.ShowOpen
  155.     If Len(frmMDI.dlgCMD1.FileName) > 0 Then
  156.       If gnDataType = gnDT_MSACCESS Or gnDataType = gnDT_BTRIEVE Then
  157.         If gnDataType = gnDT_MSACCESS Then
  158.           Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName)
  159.         ElseIf gnDataType = gnDT_EXCEL50 Or gnDataType = gnDT_EXCEL40 Or gnDataType = gnDT_EXCEL30 Then
  160.           'we can use Excel 5.0 for all Excel files because the
  161.           'ISAM will figure out the version from the file itself
  162.           'instead of relying on the connect string
  163.           Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName, 0, 0, gsEXCEL50)
  164.         Else
  165.           Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName, 0, 0, gsBTRIEVE)
  166.         End If
  167.         If gImpDB Is Nothing Then Exit Sub
  168.         frmImpTbls.lblLabel1.Caption = frmImpTbls.lblLabel1 & gImpDB.Name
  169.         frmImpTbls.Show vbModal
  170.       Else
  171.         Import (frmMDI.dlgCMD1.FileName)
  172.         While Len(frmMDI.dlgCMD1.FileName) > 0
  173.           frmMDI.dlgCMD1.FileName = vbNullString
  174.           frmMDI.dlgCMD1.ShowOpen
  175.           Import (frmMDI.dlgCMD1.FileName)
  176.         Wend
  177.       End If
  178.     End If
  179.   Else
  180.     Set gImpDB = gwsMainWS.OpenDatabase(vbNullString, 0, 0, "odbc;")
  181.     If gImpDB Is Nothing Then Exit Sub
  182.     frmImpTbls.lblLabel1.Caption = frmImpTbls.lblLabel1.Caption & gImpDB.Name
  183.     frmImpTbls.Show vbModal
  184.   End If
  185.   Screen.MousePointer = vbDefault
  186.   Exit Sub
  187. ImpErr:
  188.   If Err <> 32755 Then
  189.     ShowError
  190.   Else
  191.     Screen.MousePointer = vbDefault
  192.   End If
  193. End Sub
  194. Private Sub lstTables_Click()
  195.   cmdExport.Enabled = True
  196. End Sub
  197. Private Sub lstTables_DblClick()
  198.   Call cmdExport_Click
  199. End Sub
  200. Private Sub Form_Load()
  201.   Me.Caption = FORMCAPTION
  202.   cmdImport.Caption = BUTTON1
  203.   cmdClose.Caption = BUTTON2
  204.   cmdExport.Caption = BUTTON3
  205.   cmdExportSQL.Caption = BUTTON4
  206.   If UCase(Mid(frmSQL.txtSQLStatement, 1, 7)) = "SELECT " Then
  207.     cmdExportSQL.Enabled = True
  208.   End If
  209.   GetTableList frmImpExp.lstTables, False, False, True
  210.   MsgBar vbNullString, False
  211. End Sub
  212. Private Sub Form_Resize()
  213.   If WindowState <> 2 Then
  214.     lstTables.Width = Width - 340
  215.     Refresh
  216.   End If
  217. End Sub
  218. Private Sub Form_Unload(Cancel As Integer)
  219.   Unload frmDataType
  220. End Sub
  221. Private Sub SetCommDlg()
  222.    With frmMDI.dlgCMD1
  223.      .DialogTitle = MSG4
  224.      Select Case gnDataType
  225.        Case gnDT_MSACCESS
  226.          .Filter = "Microsoft Access (*.mdb)|*.mdb|All Files (*.*)|*.*"
  227.          .DialogTitle = "Select Microsoft Access Database"
  228.          .Flags = FileOpenConstants.cdlOFNHideReadOnly
  229.        Case gnDT_PARADOX3X, gnDT_PARADOX4X
  230.          .Filter = "Paradox (*.db)|*.db"
  231.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  232.        Case gnDT_FOXPRO26, gnDT_FOXPRO25, gnDT_FOXPRO20, gnDT_DBASEIV, gnDT_DBASEIII
  233.          .Filter = "Xbase (*.dbf)|*.dbf"
  234.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  235.        Case gnDT_BTRIEVE
  236.          .Filter = "Btrieve (FILE.DDF)|FILE.DDF"
  237.          .Flags = FileOpenConstants.cdlOFNHideReadOnly
  238.        Case gnDT_EXCEL50, gnDT_EXCEL40, gnDT_EXCEL30
  239.          .Filter = "Excel (*.xls)|*.xls"
  240.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  241.        Case gnDT_TEXTFILE
  242.          .Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
  243.          .DialogTitle = "Select Text File"
  244.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  245.      End Select
  246.      .FilterIndex = 1
  247.      .FileName = vbNullString
  248.      .CancelError = True
  249.   End With
  250. End Sub
  251.